!VERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0  OLEPublicemployeePixelsClass15isformemployee Ё%vUFCB:

This is a FoxIsapi sample using live VFP data.

Ugenhtml,112X)cPROCEDURE genhtml return [

This is a FoxIsapi sample using live VFP data.

] ENDPROC +Left = 24 Top = -50 Name = "Htmllabel1" employee Htmllabel1label isapi.vcx htmllabelrAutoSize = .T. BackStyle = 0 Caption = "Hire_Date" Left = 50 Top = 233 TabIndex = 14 Name = "lblHire_date" employee lblHire_datelabellabelComment = "" ControlSource = "EMPLOYEE.hire_date" Height = 23 Left = 132 MaxLength = 8 TabIndex = 15 Top = 231 Width = 58 Name = "txtHire_date" employee txtHire_datetextboxtextboxAutoSize = .T. BackStyle = 0 Caption = "Home_phone" Left = 33 Top = 196 TabIndex = 12 BackColor = 255,255,0 Name = "lblHome_phone" employee lblHome_phonelabellabelComment = "" ControlSource = "EMPLOYEE.home_phone" Height = 23 Left = 132 MaxLength = 24 TabIndex = 13 Top = 194 Width = 180 Name = "txtHome_phone" employee txtHome_phonetextboxtextbox`Height = 116 Left = 24 RecordSource = "regsales" Top = 288 Width = 320 Name = "Htmlgrid1" employee Htmlgrid1grid isapi.vcxhtmlgrid %Ru cU  T-TCC=CC=.gif'%C \VFPGraphics\0PT! BU CFILENAMECTAGEMPLOYEE LAST_NAME FIRST_NAMETHISFORMCWWWPATHCWEBSERVERNAMEgenhtml,1rA1E)PPROCEDURE genhtml LOCAL cFileName, cTag cTag="" cFilename = ALLTRIM(LEFT(employee.last_name,4))+ALLTRIM(LEFT(employee.first_name,4))+".gif" IF FILE(THISFORM.cWWWPath+"\VFPGraphics\"+cFileName) cTag = [] ENDIF RETURN cTag ENDPROC YTop = 0 Left = 444 Height = 216 Width = 204 ControlSource = "" Name = "Htmlphoto1" employee Htmlphoto1oleboundcontrol isapi.vcx htmlphotoTop = 12 Left = 48 Width = 337 Height = 37 Name = "Isapivcr1" CMDPREV.Name = "CMDPREV" CMDSAVE.Name = "CMDSAVE" cmdLast.Name = "cmdLast" cmdFirst.Name = "cmdFirst" CMDNEXT.Name = "CMDNEXT" employee Isapivcr1 container isapi.vcxisapivcrxAutoSize = .T. BackStyle = 0 Caption = "Address" Height = 17 Left = 63 Top = 151 Width = 48 Name = "lblAddress" employee lblAddresslabellabelComment = "" ControlSource = "EMPLOYEE.address" Height = 23 Left = 132 MaxLength = 60 Top = 152 Width = 301 Name = "txtAddress" employee txtAddresstextboxtextbox~AutoSize = .T. BackStyle = 0 Caption = "First Name" Height = 17 Left = 48 Top = 112 Width = 63 Name = "lblFirst_name" employee lblFirst_namelabellabelComment = "" ControlSource = "EMPLOYEE.first_name" Height = 23 Left = 132 MaxLength = 10 Top = 108 Width = 180 Name = "txtFirst_Name" employee txtFirst_Nametextboxtextbox{AutoSize = .T. BackStyle = 0 Caption = "Last Name" Height = 17 Left = 48 Top = 60 Width = 63 Name = "lblLast_Name" employee lblLast_Namelabellabel~Comment = "" ControlSource = "EMPLOYEE.last_name" Left = 132 MaxLength = 20 Top = 57 Width = 180 Name = "txtLast_name" employee txtLast_nametextboxtextboxcgraphicspath C **e%,2]Uy%CregsalesYCregsalesTregsalesTrT-UTHISFORM HTMLGRID1 RECORDSOURCERECORDSOURCETYPEVISIBLE %C C R!TCQ Samples\DATA\ CTC%G(CTCVIEW+%CREGSALES regsalesQSELECT customer.country,sum(orders.order_amt) as Regional_Sales FROM testdata!customer INNER JOIN testdata!orders ON Customer.cust_id = Orders.cust_id WHERE orders.emp_id = ?employee.emp_id group by country%Cregsales Qregsales %C $%C \VFPGraphics  \VFPGraphics$%C \VFPGraphics B %C C  &%C\*.gif(C2%C \VFPGraphics\C 0 ~J\C ( \VFPGraphics\C U NNAATHIS CDATAPATHREGSALESIAGIFSCWWWPATH CGRAPHICSPATH=%C6!Temployee.photoUTHISFORM HTMLPHOTO1 CONTROLSOURCERefresh,LoadActivate1qA1A3A!EAAAA1AABAAa!AAAAA3QA2  .@)*&PROCEDURE Refresh IF USED("regsales") Requery("regsales") thisform.htmlgrid1.recordsource="regsales" thisform.htmlgrid1.recordsourcetype=1 && alias ELSE thisform.htmlgrid1.visible=.f. ENDIF ENDPROC PROCEDURE Load LOCAL nn,aa[1] *Get the data path IF EMPTY(THIS.cDataPath) OR !DIRECTORY(THIS.cDataPath) THIS.cDataPath = HOME()+"Samples\DATA\" &&set to VFP samples data location ENDIF * THIS.cGraphicsPath = THIS.cDataPath+"Graphics\" * Need to copy graphics to WebServer location DoDefault() LOCAL nn,aa[1] nn=adatabases(aa) IF nn > 0 SET DATABASE TO (aa[1]) nn = ADBOBJECTS(aa,"VIEW") && see if view exists already IF nn = 0 OR ASCAN(aa,"REGSALES") = 0 create sql view regsales as SELECT customer.country,sum(orders.order_amt) as Regional_Sales; FROM testdata!customer INNER JOIN testdata!orders ; ON Customer.cust_id = Orders.cust_id ; WHERE orders.emp_id = ?employee.emp_id; group by country ENDIF IF !USED("regsales") USE regsales IN 0 ENDIF ENDIF * Copy graphics files LOCAL i,AGIFs IF !EMPTY(THIS.cWWWPath) IF !DIRECTORY(THIS.cWWWPath+"\VFPGraphics") MD (THIS.cWWWPath+"\VFPGraphics") IF !DIRECTORY(THIS.cWWWPath+"\VFPGraphics") * Failed to created directory - lack of permissions RETURN ENDIF ENDIF IF !EMPTY(THIS.cGraphicsPath) AND DIRECTORY(THIS.cGraphicsPath) DIMENSION aGIFs[1] IF ADIR(aGIFs,THIS.cGraphicsPath+"\*.gif")>0 FOR i = 1 TO ALEN(aGIFs,1) IF !FILE(THIS.cWWWPath+"\VFPGraphics\"+aGIFs[m.i,1]) COPY FILE (THIS.cGraphicsPath+"\"+aGIFs[m.i,1]) TO ; (THIS.cWWWPath+"\VFPGraphics\"+aGIFs[m.i,1]) ENDIF ENDFOR ENDIF ENDIF ENDIF ENDPROC PROCEDURE Activate IF EMPTY(thisform.htmlphoto1.controlsource) thisform.htmlphoto1.controlsource="employee.photo" ENDIF ENDPROC  Top = -1 Left = -9 Height = 422 Width = 654 DoCreate = .T. Caption = "Employee Form" BackColor = 0,128,255 cgraphicspath = (HOME(1)+"\Samples\Data\Graphics") dbfname = employee dbfalias = Employee cdatapath = (HOME(1)+"\Samples\Data") Name = "employee" form isapi.vcx